VARIABLE /DSIG;
ARRAY R1[642],R2[510],R3[410],R4[332],R5[252],R6[168]
	,R7[348],R8[284],R9[198];

COMMENT: Sum of delay memory sizes = 3144
	 Reverberation time = 1.20 seconds
	 Clock rate = 12800
	 Distance to first reflector = 2.24 meters;

INSTRUMENT ALLPASS;
I_ONLY
    BEGIN
	PRINT "   ALLPASS REVERB ";
	REVINIT←1;
	IF
	    SRATE ≠ 12800
	 THEN
	    PRINT "
WARNING: SRATE does not match reverberator rate. ";
    END;

REV2(DSIG,641, .749,R1);
REV2(U1,509, .720,R2);
REV2(U2,409, .691,R3);
   REV2(U3,331, .663,R4);
      REV2(U4,251, .650,R5);
         REV2(U5,167, .637,R6);
   REV2(U3,347, .663,R7);
      REV2(U7,283, .650,R8);
         REV2(U8,197, .643,R9);
OUTA ← OUTA+U6*9.780;
OUTB ← OUTB+U9*9.690;
DSIG←0;
END;